home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win FX.xpl < prev    next >
Text File  |  2001-04-28  |  3KB  |  85 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\Interface\Effects"
  5. "NAME"="Windows FX Options #1"
  6. "VERSION"="2.43"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Window animation (taskbar zoom)"
  9. "TEXT 2"="Drag full windows"
  10. "TEXT 3"="Smooth scrolling"
  11. "DESCRIPTION 1"="Option #1: If this option is enabled, the movement of the window will be animated when you maximize, minimize or restore it."
  12. "DESCRIPTION 2"="Option #2: When you move a window across the screen, instead of showing an outline of the window the full conents of the window move too if this option is enabled."
  13. "DESCRIPTION 3"="Option #3: If this is enabled, then items with scrollbars will move in a smooth fashion, instead of jerking."
  14. "DESCRIPTION 4"="Note: Not all of these options will work on your computer, and they may make your system much slower."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19.  
  20. Sub Plugin_Initialize 
  21.  'String
  22.  i=RegReadValue("HKCU\Control Panel\desktop\WindowMetrics\MinAnimate")
  23.  if i=1 then SetUIElement 1,true
  24.  
  25.  'String
  26.  i=RegReadValue("HKCU\Control Panel\desktop\DragFullWindows")
  27.  if i=1 then SetUIElement 2,true
  28.  
  29.  'Binary!!
  30.  i=RegReadValue("HKCU\Control Panel\desktop\SmoothScroll") 
  31.  'DebugMsg "[" & i & "]"
  32.  if i="01000000" or i=1 then SetUIElement 3,true
  33.  
  34.  ''String
  35.  'i=RegReadValue("HKCU\Control Panel\desktop\FontSmoothing")
  36.  'if i=1 or i=2 then SetUIElement 4,true
  37. End Sub
  38.  
  39. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  b=GetUIElement(1)
  41.  if b=true then
  42.   Call RegWriteValue("HKCU\Control Panel\desktop\WindowMetrics\MinAnimate",1,1)
  43.  else
  44.   Call RegWriteValue("HKCU\Control Panel\desktop\WindowMetrics\MinAnimate",0,1)
  45.  end if
  46.  
  47.  b=GetUIElement(2)
  48.  if b=true then
  49.   Call RegWriteValue("HKCU\Control Panel\desktop\DragFullWindows",1,1)
  50.  else
  51.   Call RegWriteValue("HKCU\Control Panel\desktop\DragFullWindows",0,1)
  52.  end if
  53.  
  54.  b=GetUIElement(3)
  55.  if b=true then
  56.   Call RegWriteValue("HKCU\Control Panel\desktop\SmoothScroll","01000000",3)
  57.   'debugmsg "TRUE"
  58.  else
  59.   Call RegWriteValue("HKCU\Control Panel\desktop\SmoothScroll","00000000",3)
  60.   'debugmsg "FALSE"
  61.  end if
  62.  
  63. ' b=GetUIElement(4)
  64. ' if b=true then
  65. '    if GetWinVer=2 then 'NT
  66. '       vVal=2
  67. '    else
  68. '       vVal=1
  69. '    end if
  70. ' else
  71. '    vVal=0
  72. ' end if
  73. ' Call RegWriteValue("HKCU\Control Panel\desktop\FontSmoothing",vVal,1)
  74. ' Call IniWriteValue("WIN.INI","TrueType","FontSmoothing",vVal)
  75.     
  76.  Call Restart()
  77. End Sub
  78.  
  79.  
  80. Sub Plugin_Terminate 
  81. End Sub
  82.  
  83.  
  84.  
  85.